10 POKE 53281 , 11 : POKE 53280 ,11 : PRINT "[155]" 20 PRINT"[147] TEACHMASTER" 30 PRINT" (W) BY ARNO FREISINGER" 40 PRINT" ROSSBACHSTR.17" 50 PRINT" 6434 NIEDERAULA 3" 90 FOR I = 1 TO 2000 : NEXT 100 PRINT"[147][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] AUSWAHL [195][195][195][195][195][195][195][195][195][195][195][195][195][174]" 110 PRINT"[194] [194]" 120 PRINT"[194] 1 = LEKTION 1 [194]" 130 PRINT"[194] [194]" 140 PRINT"[194] 2 = LEKTION 2 [194]" 150 PRINT"[194] [194]" 160 PRINT"[194] 3 = LEKTION 3 [194]" 170 PRINT"[194] [194]" 180 PRINT"[194] 4 = LEKTION 4 [194]" 190 PRINT"[194] [194]" 200 PRINT"[194] 5 = LEKTION 5 [194]" 210 PRINT"[194] [194]" 220 PRINT"[194] 6 = LEKTION 6 [194]" 230 PRINT"[194] [194]" 240 PRINT"[194] 7 = LEKTION 7 [194]" 250 PRINT"[194] [194]" 260 PRINT"[194] 8 = LEKTION 8 [194]" 270 PRINT"[194] [194]" 280 PRINT"[194] 9 = LEKTION 9 [194]" 290 PRINT"[194] [194]" 300 PRINT"[194] A = BLAETTERN [194]" 330 PRINT"[194] [194]" 340 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195] TASTE DRUECKEN [195][195][195][195][195][195][195][189]" 350 GET A$ : IF A$ = "" THEN 350 360 IF A$ = "A" THEN 400 370 A = VAL (A$) : IF A < 1 OR A > 9 THEN 350 380 F$ = "LEKTION "+A$ 390 LOAD F$ ,8 400 PRINT"[147][176][195][195][195][195][195][195][195][195][195][195] AUSWAHL TEIL II [195][195][195][195][195][195][195][195][195][195][174]" 410 PRINT"[194] [194]" 420 PRINT"[194] 1 = LEKTION 10 [194]" 430 PRINT"[194] [194]" 440 PRINT"[194] 2 = LEKTION 11 [194]" 445 PRINT"[194] [194]" 460 PRINT"[194] 3 = LEKTION 12 [194]" 470 PRINT"[194] [194]" 480 PRINT"[194] 4 = LEKTION 13 [194]" 490 PRINT"[194] [194]" 500 PRINT"[194] 5 = ZURUECK BLAETTERN [194]" 510 PRINT"[194] [194]" 520 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195] TASTE DRUECKEN [195][195][195][195][195][195][195][195][195][189]" 530 GET A$ : IF A$ = "" THEN 530 540 IF A$ = "5" THEN 100 550 A = VAL (A$) : IF A < 1 OR A > 4 THEN 530 560 A = A + 9 570 A$ = "" 580 A$ = RIGHT$(STR$(A),2) 590 GOTO 380